home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 6 / 006.d81 / typing tutor (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  6KB  |  242 lines
  1. 1 rem *** typing tutor
  2. 2 rem *** by eugene d. kelly, jr.
  3. 3 rem *** translated for the 64 by
  4. 4 rem *** donna k. woody
  5. 5 poke53281,15:poke53280,11:printchr$(144):poke783,peek(783)and254
  6. 6 printchr$(147):print:printtab(14)"************":printtab(14)"typing tutor"
  7. 7 printtab(14)"************":printtab(19)"by"
  8. 8 printtab(10)"eugene d. kelly jr."
  9. 9 printtab(5)"translated for the commodore by"
  10. 10 printtab(14)"donna k. woody[144]"
  11. 11 poke781,22:poke782,7:sys65520:print"press [129]space bar[144] to continue."
  12. 12 poke198,0:wait198,1:geta$
  13. 20 printchr$(147):printtab(14)"typing tutor"
  14. 30 print:print
  15. 50 a$="fjdksla:  frtgbvjuyhnmeci,wxo.qzp/1029384756"
  16. 60 poke781,3:poke782,18:sys65520:print"menu"
  17. 70 print"1. home keys lesson"
  18. 72 print:print"2. first finger lesson"
  19. 74 print:print"3. second finger lesson"
  20. 76 print:print"4. third finger lesson"
  21. 78 print:print"5. fourth finger lesson"
  22. 82 print:print"6. number lesson"
  23. 84 print:print"7. quit"
  24. 90 poke781,21:poke782,0:sys65520:print"what is your choice 1-7? ";
  25. 91 poke198,0:wait198,1:getch$
  26. 92 ch=val(ch$)
  27. 93 ifch<1orch>7thenprint"please enter a number between 1 and 7.":goto90
  28. 94 printchr$(147)
  29. 95 onchgosub100,200,300,400,500,600,97
  30. 96 goto20
  31. 97 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  32. 98 poke631,13:poke632,13:poke198,2:end
  33. 100 rem home keys gosubs
  34. 110 gosub2000
  35. 120 gosub3000
  36. 130 nc=10:gosub1000
  37. 190 return
  38. 199 :
  39. 200 rem first finger gosubs
  40. 210 gosub3000:gosub6000:rem reviews
  41. 220 gosub4000:rem first finger exercises
  42. 230 nc=22:gosub1000:rem random letters
  43. 240 gosub5000:rem word practice
  44. 290 return
  45. 299 :
  46. 300 rem second finger gosubs
  47. 310 gosub6100:gosub6120:rem reviews
  48. 320 gosub7000:rem second finger exercises
  49. 330 gosub5200:rem review words
  50. 340 gosub5600:rem second finger words
  51. 350 nc=26:gosub1000:rem random letters
  52. 390 return
  53. 399 :
  54. 400 rem third finger gosubs
  55. 410 gosub6100:gosub6140:rem reviews
  56. 420 gosub7040:rem more reviews
  57. 430 gosub8000:rem third finger exercises
  58. 440 gosub5200:gosub5600:rem word reviews
  59. 450 gosub5700:rem third finger words
  60. 460 nc=30:gosub1000:rem random letters
  61. 490 return
  62. 499 :
  63. 500 rem fifth finger gosubs
  64. 510 gosub6100:gosub6140:rem reviews
  65. 520 gosub7040:gosub8040:rem more reviews
  66. 530 gosub9000:rem fourth finger exercises
  67. 540 gosub5200:gosub5600:gosub5700:rem word reviews
  68. 550 gosub5800:rem fourth finger words
  69. 560 nc=34:gosub1000:rem random letters
  70. 590 return
  71. 599 :
  72. 600 printchr$(147):poke781,2:poke782,12:sys65520:print"number lesson"
  73. 610 gosub6100:gosub6140:rem reviews
  74. 620 gosub7040:gosub8040:gosub9040:rem more reviews
  75. 630 gosub9500:rem number exercises
  76. 650 gosub5800:rem fourth finger words
  77. 660 gosub5900:rem number word
  78. 670 nc=44:gosub1000:rem random letters and numbers
  79. 690 return
  80. 699 :
  81. 1000 printchr$(147)
  82. 1010 print"one moment, please..."
  83. 1015 t$="":flag=2
  84. 1020 fori=1to39
  85. 1030 n1=n
  86. 1040 n=int(nc*rnd(1))+1
  87. 1045 ifn1=0then1060
  88. 1050 ifmid$(a$,n,1)=mid$(a$,n1,1)then1040
  89. 1060 t$=t$+mid$(a$,n,1)
  90. 1070 next
  91. 1080 poke781,6:poke782,0:sys65520:printt$
  92. 1082 ti$="000000"
  93. 1083 m=0:c$=""
  94. 1088 poke781,9:poke782,0:sys65520:print"copy the above line."
  95. 1090 print:print:print
  96. 1092 poke204,0:poke207,0:poke198,0:wait198,1:getz$:poke204,1
  97. 1093 ifz$=chr$(20)thenprintz$;:c$=left$(c$,len(c$)-1):goto1092
  98. 1095 ifz$=chr$(13)thengoto1100
  99. 1096 printz$;
  100. 1097 c$=c$+z$
  101. 1098 goto1092
  102. 1100 forx=1tolen(t$)-1
  103. 1110 ifmid$(c$,x,1)=mid$(t$,x,1)thenm=m+1
  104. 1120 next
  105. 1230 print:print:print:print" you did "m" letters correct out of"
  106. 1240 printlen(t$)-1" in "mid$(ti$,3,2)":"right$(ti$,2)" seconds"
  107. 1250 poke781,23:poke782,8:sys65520:print"to continue press <return> ";
  108. 1260 poke198,0:wait198,1:getz$
  109. 1265 ifflag=2and(len(t$)-1-m)>3thengoto1000
  110. 1270 flag=0:return
  111. 1999 :
  112. 2000 print:fork=1to7step2
  113. 2010 la$=mid$(a$,k,1):l1$=la$+la$+" "
  114. 2020 lb$=mid$(a$,k+1,1):l2$=lb$+lb$+" "
  115. 2030 t$=""
  116. 2040 forj=1to6
  117. 2050 t$=t$+l1$+l2$
  118. 2060 next
  119. 2070 gosub10000:printchr$(147)
  120. 2080 next
  121. 2090 return
  122. 2999 :
  123. 3000 t$=""
  124. 3010 fori=1to8
  125. 3020 fork=1to2
  126. 3030 t$=t$+mid$(a$,i,1)
  127. 3040 nextk
  128. 3050 t$=t$+" "
  129. 3060 nexti
  130. 3070 fori=1to8
  131. 3080 t$=t$+mid$(a$,i,1)+" "
  132. 3090 next
  133. 3100 gosub10000
  134. 3110 return
  135. 3999 :
  136. 4000 t$=""
  137. 4020 forj=12to16
  138. 4030 t1$=t1$+"f"+mid$(a$,j,1)
  139. 4035 nextj:t1$=t1$+" "
  140. 4040 t$=t1$+t1$+t1$
  141. 4050 gosub10000
  142. 4100 t$=""
  143. 4120 forj=18to22
  144. 4130 t2$=t2$+"j"+mid$(a$,j,1)
  145. 4135 nextj:t2$=t2$+" "
  146. 4140 t$=t2$+t2$+t2$
  147. 4150 gosub10000
  148. 4200 t$=t1$+t2$+t1$
  149. 4210 gosub10000
  150. 4300 t$=t2$+t1$+t2$
  151. 4310 gosub10000
  152. 4400 nc=22
  153. 4900 return
  154. 4999 :
  155. 5000 t$="a fad: as a lad: all ads: fall "
  156. 5010 gosub10000
  157. 5200 t$="fur fur fun fun far far fan fan fab fab "
  158. 5210 gosub10000
  159. 5300 t$="gun gun gum gum guy guy gal gal gus gus "
  160. 5310 gosub10000
  161. 5400 t$="buy buy but but bat bat bag bag bun bun "
  162. 5410 gosub10000
  163. 5500 t$="hut hut jut jut van van had had has has "
  164. 5510 gosub10000
  165. 5520 return
  166. 5600 t$="jim jim dim dim kid kid red red cue cue "
  167. 5610 gosub10000
  168. 5620 t$="my: my: fed fed lid lid cut cut aid aid "
  169. 5630 gosub10000
  170. 5690 return
  171. 5700 t$="lot lot sit sit wet wet tex tex co. co. "
  172. 5710 gosub10000
  173. 5720 t$="sat sat sod sod law law sax sax wax wax "
  174. 5730 gosub10000
  175. 5790 return
  176. 5800 t$="fat fat pat pat zip zip qt. qt. zap zap "
  177. 5810 gosub10000
  178. 5820 t$="que que pal pal bop bop y/n y/n has has "
  179. 5830 gosub10000
  180. 5890 return
  181. 5900 t$="list 5679 run 2841 9045 s. 8 th street "
  182. 5910 gosub10000
  183. 5920 t$="try 1084 times 35876 west 165 th blvd. "
  184. 5930 gosub10000
  185. 5999 return
  186. 6000 t$="fd fs fa jk jl j: fd jk fs jl fa j: "
  187. 6010 gosub10000
  188. 6100 t$="fjdksla: :alskdjf jfkdls:a a:sldkfj "
  189. 6110 gosub10000
  190. 6111 return
  191. 6120 t$="frf ftf fgf fbf fvf juj jyj jhj jnj jmj "
  192. 6130 gosub10000
  193. 6140 t$="frf juj ftf jyj fgf jhj fbf jnj fvf jmj "
  194. 6150 gosub10000
  195. 6900 return
  196. 6990 return
  197. 7000 t$="ded ded dcd dcd kik kik k,k k,k "
  198. 7010 gosub10000
  199. 7020 t$="ded kik dcd k,k ded kik dcd k,k "
  200. 7030 gosub10000
  201. 7040 t$="dedcd kik,k dedcd kik,k dedcd kik,k "
  202. 7050 gosub10000
  203. 7100 return
  204. 8000 t$="sws sws sxs sxs lol lol l.l l.l "
  205. 8010 gosub10000
  206. 8020 t$="sws lol sxs l.l sws lol sxs l.l "
  207. 8030 gosub10000
  208. 8040 t$="swsxs lol.l swsxs lol.l swsxs lol.l "
  209. 8050 gosub10000
  210. 8100 return
  211. 9000 t$="aqa aqa aza aza :p: :p: :/: :/: "
  212. 9010 gosub10000
  213. 9020 t$="aqa :p: aza :/: aqa :p: aza :/: "
  214. 9030 gosub10000
  215. 9040 t$="aqaza :p:/: aqaza :p:/: aqaza :p:/: "
  216. 9050 gosub10000
  217. 9100 return
  218. 9500 t$="f4f f5f j7j j6j f4f f5f j6j "
  219. 9510 gosub10000
  220. 9520 t$="f4f5f j7j6j f4f5f j7j6j f4f5f j6j7j "
  221. 9525 gosub10000
  222. 9530 t$="f4f j7j f5f j6j f4f j7j f5f j7j "
  223. 9535 gosub10000
  224. 9540 t$="d3d k8k d3d k8k d3d k8k d3d k8k "
  225. 9545 gosub10000
  226. 9550 t$="s2s l9l s2s l9l s2s l9l s2s l9l "
  227. 9555 gosub10000
  228. 9560 t$="a1a :0: a1a :0: a1a :0: a1a :0: "
  229. 9565 gosub10000
  230. 9599 return
  231. 10000 printchr$(147):poke781,6:poke782,0:sys65520:printt$
  232. 10002 gosub1082
  233. 10004 if(len(t$)-1-m)<3then10160
  234. 10010 printchr$(147):print"you missed "len(t$)-m-1" letters in that"
  235. 10020 print"lesson.  you'd better try it again."
  236. 10030 poke781,22:poke782,8:sys65520:print"press <return> to continue.";
  237. 10040 poke198,0:wait198,1:getz$:printchr$(147):goto10000
  238. 10160 return
  239. 63000 rem     link back
  240. 63010 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  241. 63020 poke198,0:poke631,13:poke632,13:poke198,2:end
  242.